home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 May / chip-cd_2002_05.zip / 05 / Dom i biuro / Mr Faktury Pro 1.53 / mr_faktury_pro.exe / 0 / RCDATA / TFDOSTAWA_EWIDENCJA / TFDOSTAWA_EWIDENCJA.txt
Text File  |  2002-03-27  |  3KB  |  144 lines

  1. object fDostawa_ewidencja: TfDostawa_ewidencja
  2.   Left = 398
  3.   Top = 258
  4.   Width = 372
  5.   Height = 306
  6.   BorderIcons = []
  7.   Caption = 'Ewidencja dostaw'
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = True
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Label1: TLabel
  19.     Left = 8
  20.     Top = 200
  21.     Width = 41
  22.     Height = 13
  23.     Caption = 'Od firmy:'
  24.   end
  25.   object lFirma: TLabel
  26.     Left = 8
  27.     Top = 216
  28.     Width = 27
  29.     Height = 13
  30.     Caption = 'lFirma'
  31.   end
  32.   object DBGrid1: TDBGrid
  33.     Left = 0
  34.     Top = 0
  35.     Width = 361
  36.     Height = 193
  37.     DataSource = ds
  38.     Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  39.     TabOrder = 0
  40.     TitleFont.Charset = DEFAULT_CHARSET
  41.     TitleFont.Color = clWindowText
  42.     TitleFont.Height = -11
  43.     TitleFont.Name = 'MS Sans Serif'
  44.     TitleFont.Style = []
  45.     OnDblClick = DBGrid1DblClick
  46.     Columns = <
  47.       item
  48.         Expanded = False
  49.         FieldName = 'data_dostawy'
  50.         Visible = True
  51.       end
  52.       item
  53.         Expanded = False
  54.         FieldName = 'data_przyjecia'
  55.         Visible = True
  56.       end
  57.       item
  58.         Expanded = False
  59.         FieldName = 'symbol_faktury'
  60.         Visible = True
  61.       end
  62.       item
  63.         Expanded = False
  64.         FieldName = 'do_zaplaty'
  65.         Width = 87
  66.         Visible = True
  67.       end>
  68.   end
  69.   object bSzczegoly: TButton
  70.     Left = 240
  71.     Top = 248
  72.     Width = 59
  73.     Height = 25
  74.     Caption = '&Szczeg'#243#322'y'
  75.     TabOrder = 1
  76.     OnClick = bSzczegolyClick
  77.   end
  78.   object bRezygnuj: TButton
  79.     Left = 304
  80.     Top = 248
  81.     Width = 59
  82.     Height = 25
  83.     Caption = '&Rezygnuj'
  84.     TabOrder = 2
  85.     OnClick = bRezygnujClick
  86.   end
  87.   object bDrukuj: TButton
  88.     Left = 8
  89.     Top = 248
  90.     Width = 57
  91.     Height = 25
  92.     Caption = '&Drukuj '
  93.     TabOrder = 3
  94.     OnClick = bDrukujClick
  95.   end
  96.   object rbEwSkup: TRadioButton
  97.     Left = 80
  98.     Top = 240
  99.     Width = 97
  100.     Height = 17
  101.     Caption = 'Ca'#322'o'#347#263
  102.     Checked = True
  103.     TabOrder = 4
  104.     TabStop = True
  105.   end
  106.   object rbEwSkupTow: TRadioButton
  107.     Left = 80
  108.     Top = 256
  109.     Width = 89
  110.     Height = 17
  111.     Caption = 'Wybrany towar'
  112.     TabOrder = 5
  113.   end
  114.   object bKasuj: TButton
  115.     Left = 192
  116.     Top = 248
  117.     Width = 33
  118.     Height = 25
  119.     Caption = '&Kasuj'
  120.     TabOrder = 6
  121.     OnClick = bKasujClick
  122.   end
  123.   object ds: TDataSource
  124.     OnDataChange = dsDataChange
  125.     Left = 56
  126.     Top = 80
  127.   end
  128.   object frReport: TfrReport
  129.     InitialZoom = pzDefault
  130.     PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
  131.     OnGetValue = frReportGetValue
  132.     Left = 208
  133.     Top = 208
  134.     ReportForm = {18000000}
  135.   end
  136.   object frUserDataset: TfrUserDataset
  137.     OnCheckEOF = frUserDatasetCheckEOF
  138.     OnFirst = frUserDatasetFirst
  139.     OnNext = frUserDatasetNext
  140.     Left = 256
  141.     Top = 208
  142.   end
  143. end
  144.